home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 20
/
Cream of the Crop 20 (Terry Blount) (1996).iso
/
os2
/
ftree10f.zip
/
Person.ftx
< prev
next >
Wrap
Text File
|
1996-05-20
|
3KB
|
122 lines
/*
Family Tree Rexx Script FTX
Copyright (C) 1996 by <Nils Meier>
Please send comments to / Kommentar bitte an
meier2@athene.informatik.uni-bonn.de
<This script shows all informations about the currently selected person
/ Dieses Skript zeigt alle Information des aktuell ausgewaehlten Menschen>
*/
/* ----------------------- Params / Parameter ------------------- */
IF getLanguage()='Deutsch' THEN DO
header ='Persoenliche Daten von '
name ='Name : '
firstname ='Vorname : '
sex ='Geschlecht : '
birthdate ='Geburtsdatum : '
birthplace='Geburtsort : '
deathdate ='Todesdatum : '
deathplace='Todesort : '
memo ='Memo : '
picture ='Bild : '
marriage ='Ehe mit : '
child ='- Kinder : '
empty =' : '
datasex = '? männlich weiblich'
END
ELSE DO
header ='Personal data of '
name ='Name : '
firstname ='First name : '
sex ='Sex : '
birthdate ='Birth date : '
birthplace='Birth location : '
deathdate ='Death date : '
deathplace='Death location : '
memo ='Memo : '
picture ='Picture : '
marriage ='Marriage with : '
child ='- Children : '
empty =' : '
datasex = '? male female'
END
/* ----------------- Display Header / Kopf der Ausgabe ------------- */
SAY(header||getName()||','||getFirstName())
SAY('.........................................')
/* ------------------------------ Output / Ausgabe ----------------- */
/* Standard data / Standardinformationen */
SAY(name ||getName() )
SAY(firstname ||getFirstName() )
SAY(sex ||WORD(datasex,getSex()+1) )
SAY(birthdate ||getBirthDate() )
SAY(birthplace||getBirthPlace() )
SAY(deathdate ||getDeathDate() )
SAY(deathplace||getDeathPlace() )
/* Memo field / Memofeld */
line=1
SAY(memo||getMemo(line))
DO FOREVER
line=line+1
result=getMemo(line)
IF LENGTH(result)=0 THEN LEAVE
SAY(empty||result)
END
/* Marriages / Ehen */
p=1
rc=selectFamily(p)
DO WHILE rc=1
/* Push Man on Stack / Menschen auf Stack */
rc=doStack('PM')
/* Partner / Parner */
rc=selectPerson('p')
result=getFirstName()||' '||getName()||' '
/* MarriageDate / Heiratsdatum */
result=marriage||result||getMarriageDate()
/* Output / Ausgabe */
SAY('.........................................')
SAY(result)
/* Children / Kinder */
c=1
rc=selectPerson(c);
DO WHILE rc=1
IF c=1 THEN
result=child||getBirthDate()||' '||getFirstName()||' '||getName()
ELSE
result=empty||getBirthDate()||' '||getFirstName()||' '||getName()
SAY(result)
c=c+1
rc=selectPerson(c)
END
/* Pop Man from Stack / Menschen vom Stack */
rc=doStack('pM')
/* Next Family of Actual / Naechste Familie des Aktuellen */
p=p+1
rc=selectFamily(p)
END
/* Done / Fertig */
RETURN